home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
joytest.mod
< prev
next >
Wrap
Text File
|
1995-11-25
|
3KB
|
60 lines
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.12.89 00:174:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
MODULE JoyTest ;
(* Mit diesem MODULE kann die Maus Paralell mit Joystick und Maus bedient *)
(* werden. *)
(* Kurzer Test für Joystickabfrage und Mauspositionierung *)
(* Achtung ! Wenn mann mit dem Mauszeiger über den Bildschirmrand fährt *)
(* wirft der ATARI Bomben ! *)
FROM JoyEvent IMPORT InitJoyEvent,JoyEventType,Joystick,TermJoyEvent,
NoEvents,JoyEvents;
FROM MousePosition IMPORT GetMousePos,SetMousePos;
FROM InOut IMPORT WriteString;
VAR
je:JoyEvents;
i :INTEGER;
mx,my,w :INTEGER;
BEGIN
InitJoyEvent;
FOR i:=0 TO 10000 DO
Joystick(je);
GetMousePos(mx,my,w);
IF je#NoEvents THEN
IF Up IN je THEN (*WriteString('up');*)
INC(my)
END(*IF*);
IF Down IN je THEN (*WriteString('down');*)
DEC(my)
END(*IF*);
IF Right IN je THEN (*WriteString('right');*)
DEC(mx);
END(*IF*);
IF Left IN je THEN (*WriteString('left');*)
INC(mx);
END(*IF*);
SetMousePos(mx,my);
(* WriteString(' ')*)
END(*IF*);
END(*FOR*);
TermJoyEvent;
END JoyTest.